home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO34.LSP < prev    next >
Encoding:
Text File  |  1986-09-21  |  1.3 KB  |  37 lines
  1. (Defun C:Ltc ()
  2.        (Setvar "Cmdecho" 0)
  3.        (Setq BLIP (Getvar "Blipmode"))
  4.        (Setvar "Blipmode" 0)
  5.        (Setq C1 (Osnap (Setq E1 (Osnap (Getpoint
  6.                 "\nFirst circle: ")"Nea"))"Cen"))
  7.        (Setq C2 (Osnap (Setq E2 (Osnap (Getpoint
  8.                 "\nSecond circle: ")"Nea"))"Cen"))
  9.        (If (> (Distance C1 E1) (Distance C2 E2))
  10.            (Setq A (List C2 C1)) (Setq A (List C1 C2))
  11.        )
  12.        (If (> (Distance C1 E1) (Distance C2 E2))
  13.            (Setq B (List E2 E1)) (Setq B (List E1 E2))
  14.        )
  15.        (Setq Q (Getstring "\n(E)xternal or (I)nternal <E>: "))
  16.        (If (= Q "e")
  17.            (Setq Q "E")
  18.                  (If (= Q "i") (Setq Q "I")
  19.                  )
  20.        )
  21.        (Setq R1 (Distance (Car B) (Car A)))
  22.        (Setq R2 (Distance (Cadr B) (Cadr A)))
  23.        (If (= Q "I")
  24.            (Setq R3 (+ R2 R1)) (Setq R3 (- R2 R1))
  25.        )
  26.        (Command "Circle" (Cadr A) R3)
  27.        (Setq E3 (Polar (Cadr A) (Angle (Cadr A) (Cadr B)) R3))
  28.        (Command "Line" (Car A) (Osnap E3 "Tan")
  29.                 (Osnap (Cadr B) "Per") "")
  30.        (Setq Tan1 (Getvar "Lastpoint"))
  31.        (Repeat 3
  32.                (Command "Erase" "L" "")
  33.        )
  34.        (Command "Line" Tan1 (Osnap (Car B) "Tan") "")
  35.        (Setvar "Blipmode" BLIP)
  36. )
  37.